﻿Imports System

Module Main

    Sub Main()

        Dim Args_String As String = Command()
        Dim Parameters(), Parameter_Values() As String


        If Args_String Is "" Then
            Dim Good_events_analysis_Form As Form1
            Good_events_analysis_Form = New Form1
            Good_events_analysis_Form.ShowDialog()
            Good_events_analysis_Form.Get_Parameters(Args_String)
            Good_events_analysis_Form.Close()
        End If

        If Split_Parameters(Args_String, Parameters, Parameter_Values) Then
            Exit Sub
        End If

        Dim Nonrecognized_Parameters As String = ""
        For i As Integer = 0 To Parameters.Length - 1
            Select Case Parameters(i)
                Case "Input_File"
                Case "Lower_Lewel"
                Case "Upper_Lewel"
                Case "Lower_Lewel1"
                Case "Upper_Lewel2"
                Case "NO_Of_Frame_To_Analize"
                Case "Histograme_File"
                Case "Hits_File"
                Case Else
                    Nonrecognized_Parameters = Nonrecognized_Parameters
            End Select
        Next

    End Sub

End Module
